<script>on mouseUpTextoid "Test1",cd fld 1,true,"91,69","red"testError the ResultTextoid "Test2","This is a sample of wrapping text, you can edit me."¬,"chicago",12,"285,142,385,242","white,blue"testError the Resultset selectedText of window "Test2" to "11,16"end mouseUpon TestError Whatif What ≠ emptythenbeepanswer Whatexit to HyperCardend ifend TestError</script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text> Textoid 1.8 by Frédéric RINALDI and the faithfull help of Benoît WIDEMANN for WDEF and CDEF resourcesDESCRIPTION------------ Textoid XCMD displays a text windoid.SYNTAX------- Textoid <WName>[,<text>[,<WStyle>][,<color>] [,<X,Y[,Z,T]>] [,<wrap>][,<FName>] [,<FSize>] [,<FStyle>] [,<FAlign>] ]PARAMETERS------------ Only first param is needed. Order of params 3 to 10 doesn't matter, since the XCMD is able to recognize them. WName is a string giving the windoid name. Many windoids can be opened by using different names. Text is the text that will be displayed in the windoid. WStyle is a string defining the window style. Allowed styles are : plain, zoom, roundRect, rect, shadow, windoid, windoidZoom, bigWindoid, bigWindoidZoom, Rinaldoid, RinaldoidZoom (Rinaldoid is the same as windoid, except that it displays the window title). All window styles are floating, except plain, zoom and roundRect. A windoid or Rinaldoid style window will have small scrollbars, while other styles will use standard size. Default is RinaldoidZoom if Rinaldoid WDEF resource is present, windoidZoom if not found. Color is a one or two items string giving the foreground and background color. For each item, allowed values are the standard colors (black, white, blue, red, yellow, cyan, magenta, green), or a three word string corresponding to red, green and blue values (100 5624 28652). <X,Y[,Z,T]> will be a point or a rect, and will define position and/or size of the windoid. Coordinated are card-relative. If omitted, windoid will appear with standard size at "0,10". Wrap is a boolean to wrap (true) or not (false) the text in the windoid. Defazult is true. FName is a string giving the font that will be used. Default is Geneva. FSize is a string giving the font size that will be used. Default is 9. FStyle is an item(s) string giving the font style(s) that will be used (plain, bold, italic, outline, underline, shadow, condense, extend). Default is Plain. FAlign is a string giving the text alignment that will be used (left,right, center). Default is left. Using "!" and "?" as parameter will return an online help (resp. copyright and syntax).USING----- Textoid is stand alone, no linked resource is needed. Meanwhile, this stack contains a WDEF and a CDEF resource that are recognized by the XCMD if present. The WDEF allows to have an enhanced windoid-type window displaying title, while the CDEF is useful to get nice-looking scroll arrows for small scroll bars. So, these resources are optional, and for aesthetic purpose only. If you copy them, their ID can be set to any value but don't change their name. Each window can contain up to 32000 chars.HINT : If you use a rect ot shadow style window, placing it on a card can simulate a smart double-scroll HyperCard field. If no rectangle param is used, the size of the window will be set accordingly to the font. With multiple screens configuration, the windoid will be zoomed on the screen that it lays on. Version 1.1 adds hyperText feature : clicking on a word in the window sends a "ClicInText" message followed by the clicked word and windoid name. If the clicked word exceeds 230 chars, its last char will be "…" to notify the overflow. This message can be trapped using a handler : on clicInText What,Where if Where is "Test1" and What is ... end clicInText When a windoid is opened, the "openTextoid" message is sent, followed by the windoid name. This allows to define window properties before it is shown, since the message can be trapped using a handler : on openTextoid Which if Which is "MyWindow" then... end openTextoid When a windoid is closed, the "closeTextoid" message is sent, followed by the windoid name. This message can be trapped using a handler : on closeTextoid Which if Which is "MyWindow" then... end closeTextoid Relase 1.5 allows now full editing of the text with Cut, Copy, Paste and Erase. One new property, lockText, allows to lock/unlock the content. When a window is created, its text is locked. Like for a field, the content must be locked to accept mouseDown events (thus HyperText). If unlocked, the insertion point will be set at the clickLoc.Shortcut : Command-Click locks the text Option-Click unlocks the text Command-A selects the whole text (if unlocked)Caution : Undo is not supported to minimize the needed RAM. Finally, the selectedText property allows to select any part of the text. When using “set selectedText of window "MyWindow" to "X,Y"”, the window is brought to the front, the text is automatically unlocked, scrolled to show the insertion point, and you are ready to type in it. You can also get the selectedText when the window is closed using : on closeTextoid Which get selectedText of window Which put char (item 1 of it) to (item 2 of it) of Text of window Which end closeTextoidHint : using "set selectedText of window MyWindow to 32000" places the insertion point at the end of the text. Like any XWindow, Textoid has properties that can be get and set thru HyperTalk. “properties of window "Textoid"” will return an item list of all allowed properties : • loc : windoid's position according to card • visible : windoid's visibility • text : windoid's text • rect : windoid's position and size according to card • textFont : windoid's font • textSize : windoid's font size • globalLoc : windoid's position according to screen • globalRect : windoid's position and size according to screen • textAlign : windoid's text alignment (left,right,center) • textStyle : windoid's text style (bold, italic, outline, underline, shadow, condense, extend) • hScroll : horizontal scroll value (in pixels) • vScroll : vertical scroll value (in lines) • zoom : zoomed state (in, out) • foreColor : text color (black, white, blue, red, yellow, cyan, magenta, green) or (red green blue) • backColor : back color (black, white, blue, red, yellow, cyan, magenta, green) or (red green blue) • lockText : text locking (true or false) • selectedText: current selection (Start[,Stop])If an error occurs, external can return : "Error : Missing window name" "Error : Text cannot exceed 32000 chars" "Error : Unrecognized parameter" "Error : Duplicate window name" "Error : Empty parameter" "Error : Window rect defined twice" "Error : Window loc defined twice" "Error : Text wrap defined twice" "Error : Font size defined twice" "Error : Font name defined twice" "Error : Font style defined twice" "Error : Font alignment defined twice" "Error : Bad text style" "Error : Unable to create XWindow" "Error : XWindows not implemented"VERSIONS HISTORY-----------------1.8 :• Added window style parameter• Added "openTextoid" message• Fixed rect/globalRect property to not show window if invisible• Added support of Rinaldoid WDEF and CDEF1.6 :• Window title is displayed• All RBG values available for color• Added "closeTextoid" message when closing window• Fixed minor bugs• Added "selectedText" property• Added command-A shortcut1.5 :• full text editing added.1.4 : • fixed a bug arising on CPUs with no Color QuickDraw1.3 :• Added color support1.2 :• fixed word hilighting with wrapping word1.1 :• fixed visual minor bugs (color GrowBox, multi-screen grow frame)• added hyperText capabilities• added properties : globalLoc,globalRect,textAlign,textStyle,hScroll, vScroll,zoom--------------------------------------------------------------------This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack.Any commercial use must be licensed and aknowledged by the author. © F. Rinaldi - 1989,1990AppleLink: RINALDI1 CalvaCom : FR10 Compuserve : 71170,2111</text>
</content>
<name></name>
<script>on ClicInText What,Whereput "You clicked on ΓÇ£" & What & "ΓÇ¥ in window ΓÇ£" & Where & "ΓÇ¥"end ClicInTexton closeTextoid Whatput "You closed window ΓÇ£" & What & "ΓÇ¥"end closeTextoid</script>
/BMAP_3273.png){kind=link}
/PATs.png){kind=link}